home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / Mesa-2.2 / src-tk / image.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-04-23  |  4.7 KB  |  213 lines
  1. #include <stdio.h>
  2. #include <stdlib.h> 
  3. #include <string.h>
  4. #include "gltk.h"
  5. /*#include "private.h"*/
  6.  
  7. #ifndef SEEK_SET
  8. #  define SEEK_SET 0
  9. #endif
  10.  
  11.  
  12. /******************************************************************************/
  13.  
  14. typedef struct _rawImageRec {
  15.     unsigned short imagic;
  16.     unsigned short type;
  17.     unsigned short dim;
  18.     unsigned short sizeX, sizeY, sizeZ;
  19.     unsigned long min, max;
  20.     unsigned long wasteBytes;
  21.     char name[80];
  22.     unsigned long colorMap;
  23.     FILE *file;
  24.     unsigned char *tmp, *tmpR, *tmpG, *tmpB;
  25.     unsigned long rleEnd;
  26.     GLuint *rowStart;
  27.     GLint *rowSize;
  28. } rawImageRec;
  29.  
  30. /******************************************************************************/
  31.  
  32. static void ConvertShort(unsigned short *array, long length)
  33. {
  34.     unsigned long b1, b2;
  35.     unsigned char *ptr;
  36.  
  37.     ptr = (unsigned char *)array;
  38.     while (length--) {
  39.     b1 = *ptr++;
  40.     b2 = *ptr++;
  41.     *array++ = (b1 << 8) | (b2);
  42.     }
  43. }
  44.  
  45. static void ConvertLong(GLuint *array, long length)
  46. {
  47.     unsigned long b1, b2, b3, b4;
  48.     unsigned char *ptr;
  49.  
  50.     ptr = (unsigned char *)array;
  51.     while (length--) {
  52.     b1 = *ptr++;
  53.     b2 = *ptr++;
  54.     b3 = *ptr++;
  55.     b4 = *ptr++;
  56.     *array++ = (b1 << 24) | (b2 << 16) | (b3 << 8) | (b4);
  57.     }
  58. }
  59.  
  60. static rawImageRec *RawImageOpen(char *fileName)
  61. {
  62.     union {
  63.     int testWord;
  64.     char testByte[4];
  65.     } endianTest;
  66.     rawImageRec *raw;
  67.     GLenum swapFlag;
  68.     int x;
  69.  
  70.     endianTest.testWord = 1;
  71.     if (endianTest.testByte[0] == 1) {
  72.     swapFlag = GL_TRUE;
  73.     } else {
  74.     swapFlag = GL_FALSE;
  75.     }
  76.  
  77.     raw = (rawImageRec *)malloc(sizeof(rawImageRec));
  78.     if (raw == NULL) {
  79.     fprintf(stderr, "Out of memory!\n");
  80.     tkQuit();
  81.     }
  82.     if ((raw->file = fopen(fileName, "rb")) == NULL) {
  83.     perror(fileName);
  84.     tkQuit();
  85.     }
  86.  
  87.     fread(raw, 1, 12, raw->file);
  88.  
  89.     if (swapFlag) {
  90.     ConvertShort(&raw->imagic, 6);
  91.     }
  92.  
  93.     raw->tmp = (unsigned char *)malloc(raw->sizeX*256);
  94.     raw->tmpR = (unsigned char *)malloc(raw->sizeX*256);
  95.     raw->tmpG = (unsigned char *)malloc(raw->sizeX*256);
  96.     raw->tmpB = (unsigned char *)malloc(raw->sizeX*256);
  97.     if (raw->tmp == NULL || raw->tmpR == NULL || raw->tmpG == NULL ||
  98.     raw->tmpB == NULL) {
  99.     fprintf(stderr, "Out of memory!\n");
  100.     tkQuit();
  101.     }
  102.  
  103.     if ((raw->type & 0xFF00) == 0x0100) {
  104.     x = raw->sizeY * raw->sizeZ * sizeof(GLuint);
  105.     raw->rowStart = (GLuint *)malloc(x);
  106.     raw->rowSize = (GLint *)malloc(x);
  107.     if (raw->rowStart == NULL || raw->rowSize == NULL) {
  108.         fprintf(stderr, "Out of memory!\n");
  109.         tkQuit();
  110.     }
  111.     raw->rleEnd = 512 + (2 * x);
  112.     fseek(raw->file, 512, SEEK_SET);
  113.     fread(raw->rowStart, 1, x, raw->file);
  114.     fread(raw->rowSize, 1, x, raw->file);
  115.     if (swapFlag) {
  116.         ConvertLong(raw->rowStart, x/sizeof(GLuint));
  117.         ConvertLong((GLuint *)raw->rowSize, x/sizeof(GLint));
  118.     }
  119.     }
  120.     return raw;
  121. }
  122.  
  123. static void RawImageClose(rawImageRec *raw)
  124. {
  125.  
  126.     fclose(raw->file);
  127.     free(raw->tmp);
  128.     free(raw->tmpR);
  129.     free(raw->tmpG);
  130.     free(raw->tmpB);
  131.     free(raw);
  132. }
  133.  
  134. static void RawImageGetRow(rawImageRec *raw, unsigned char *buf, int y, int z)
  135. {
  136.     unsigned char *iPtr, *oPtr, pixel;
  137.     int count;
  138.  
  139.     if ((raw->type & 0xFF00) == 0x0100) {
  140.     fseek(raw->file, raw->rowStart[y+z*raw->sizeY], SEEK_SET);
  141.     fread(raw->tmp, 1, (unsigned int)raw->rowSize[y+z*raw->sizeY],
  142.           raw->file);
  143.  
  144.     iPtr = raw->tmp;
  145.     oPtr = buf;
  146.     while (1) {
  147.         pixel = *iPtr++;
  148.         count = (int)(pixel & 0x7F);
  149.         if (!count) {
  150.         return;
  151.         }
  152.         if (pixel & 0x80) {
  153.         while (count--) {
  154.             *oPtr++ = *iPtr++;
  155.         }
  156.         } else {
  157.         pixel = *iPtr++;
  158.         while (count--) {
  159.             *oPtr++ = pixel;
  160.         }
  161.         }
  162.     }
  163.     } else {
  164.     fseek(raw->file, 512+(y*raw->sizeX)+(z*raw->sizeX*raw->sizeY),
  165.           SEEK_SET);
  166.     fread(buf, 1, raw->sizeX, raw->file);
  167.     }
  168. }
  169.  
  170. static void RawImageGetData(rawImageRec *raw, TK_RGBImageRec *final)
  171. {
  172.     unsigned char *ptr;
  173.     int i, j;
  174.  
  175.     final->data = (unsigned char *)malloc((raw->sizeX+1)*(raw->sizeY+1)*4);
  176.     if (final->data == NULL) {
  177.     fprintf(stderr, "Out of memory!\n");
  178.     tkQuit();
  179.     }
  180.  
  181.     ptr = final->data;
  182.     for (i = 0; i < (int)(raw->sizeY); i++) {
  183.     RawImageGetRow(raw, raw->tmpR, i, 0);
  184.     RawImageGetRow(raw, raw->tmpG, i, 1);
  185.     RawImageGetRow(raw, raw->tmpB, i, 2);
  186.     for (j = 0; j < (int)(raw->sizeX); j++) {
  187.         *ptr++ = *(raw->tmpR + j);
  188.         *ptr++ = *(raw->tmpG + j);
  189.         *ptr++ = *(raw->tmpB + j);
  190.     }
  191.     }
  192. }
  193.  
  194. TK_RGBImageRec *tkRGBImageLoad(char *fileName)
  195. {
  196.     rawImageRec *raw;
  197.     TK_RGBImageRec *final;
  198.  
  199.     raw = RawImageOpen(fileName);
  200.     final = (TK_RGBImageRec *)malloc(sizeof(TK_RGBImageRec));
  201.     if (final == NULL) {
  202.     fprintf(stderr, "Out of memory!\n");
  203.     tkQuit();
  204.     }
  205.     final->sizeX = raw->sizeX;
  206.     final->sizeY = raw->sizeY;
  207.     RawImageGetData(raw, final);
  208.     RawImageClose(raw);
  209.     return final;
  210. }
  211.  
  212. /******************************************************************************/
  213.